home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / VECTORFO.D < prev    next >
Text File  |  1991-12-14  |  2KB  |  56 lines
  1. DEFINITION MODULE VectorFont;
  2.  
  3. CONST MaxFonts = 10;
  4.  
  5. PROCEDURE FontsLoaded() : INTEGER;
  6. (* Wieviele Fonts wurden geladen ? *)
  7.  
  8. PROCEDURE LoadFont ( REF input  : ARRAY OF CHAR;
  9.                      VAR handle : INTEGER ) : BOOLEAN;
  10. (* Lädt Datei, bei Fehler wird Resultat FALSE und handle=-1 *)
  11.  
  12. PROCEDURE SetTextStyle (ScaleX, ScaleY, slantTan : LONGREAL;
  13.                         direction : INTEGER);
  14. (*
  15.    ScaleX, ScaleY : Multiplikationsfaktor für Vektor  (Default = 1.0)
  16.    direction      : Winkel in Grad bzgl. Horizontalen (Default = 0)
  17.    slantTan       : Tangens des Winkel in Grad bzgl. Horizontalen (Default = 0)
  18. *)
  19.  
  20. PROCEDURE TurnedVal(       X,    Y : INTEGER;
  21.                     VAR NewX, NewY : INTEGER);
  22. (*
  23.    Aus den simplen Längen X, Y werden die resultierenden Längen unter
  24.    Berücksichtigung der Vergrößerung und der Drehung.
  25. *)
  26.  
  27. (*
  28.    Bei den folgenden beiden Routinen wird in X, Y
  29.    die Endposition des Strings zurückgegeben.
  30. *)
  31.  
  32. PROCEDURE EnableCache(enable : BOOLEAN);
  33.  
  34. PROCEDURE OutText (VAR X, Y : INTEGER; REF txt : ARRAY OF CHAR);
  35.  
  36. PROCEDURE AgainText;
  37.  
  38. PROCEDURE CreateText (VAR X, Y : INTEGER; REF txt : ARRAY OF CHAR);
  39.  
  40. PROCEDURE TextWidth (REF txt : ARRAY OF CHAR) : INTEGER;
  41.  
  42. PROCEDURE TextHeight (REF txt : ARRAY OF CHAR) : INTEGER;
  43.  
  44. PROCEDURE SetFont ( handle : INTEGER ) : BOOLEAN;
  45. (*
  46.    Setze den aktuellen Font aus den bereits geladenen. Achtung:
  47.    Begrenzung der Zeichensatz-Anzahl auf momentan 5 (4 Standard +
  48.    1 selbstdefinierter) !!
  49.    Bei vorhandenem Font wird TRUE zurückgegeben.
  50. *)
  51.  
  52. PROCEDURE GetFontName(handle : INTEGER; VAR name : ARRAY OF CHAR);
  53. (* Gebe den internen Namen zurück *)
  54.  
  55. END VectorFont.
  56.